home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / compile_to_c2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  4.0 KB  |  244 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. void r500set_all_with(T500 C,T0* a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=(a1);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. void r500copy_from(T500 C,T500 a1,int a2){
  18. int _i=0;
  19. _i=a2;
  20. while (!((_i)<(0))) {
  21. (C)[_i]=((a1)[_i]);
  22. _i=(_i)-(1);
  23. }
  24. }
  25. T500 r500realloc(T500 C,int a1,int a2){
  26. T500 R=NULL;
  27. R=calloc(a2,sizeof(T0*));
  28. r500copy_from(R,C,(a1)-(1));
  29. return R;
  30. }
  31. void r539copy_from(T539 C,T539 a1,int a2){
  32. int _i=0;
  33. _i=a2;
  34. while (!((_i)<(0))) {
  35. (C)[_i]=((a1)[_i]);
  36. _i=(_i)-(1);
  37. }
  38. }
  39. T539 r539realloc(T539 C,int a1,int a2){
  40. T539 R=NULL;
  41. R=calloc(a2,sizeof(T0*));
  42. r539copy_from(R,C,(a1)-(1));
  43. return R;
  44. }
  45. void r42copy_from(T42 C,T42 a1,int a2){
  46. int _i=0;
  47. _i=a2;
  48. while (!((_i)<(0))) {
  49. (C)[_i]=((a1)[_i]);
  50. _i=(_i)-(1);
  51. }
  52. }
  53. T42 r42realloc(T42 C,int a1,int a2){
  54. T42 R=NULL;
  55. R=calloc(a2,sizeof(T0*));
  56. r42copy_from(R,C,(a1)-(1));
  57. return R;
  58. }
  59. void r24set_all_with(T24 C,T0* a1,int a2){
  60. int _i=0;
  61. _i=a2;
  62. while (!((_i)<(0))) {
  63. (C)[_i]=(a1);
  64. _i=(_i)-(1);
  65. }
  66. }
  67. void r24copy_from(T24 C,T24 a1,int a2){
  68. int _i=0;
  69. _i=a2;
  70. while (!((_i)<(0))) {
  71. (C)[_i]=((a1)[_i]);
  72. _i=(_i)-(1);
  73. }
  74. }
  75. T24 r24realloc(T24 C,int a1,int a2){
  76. T24 R=NULL;
  77. R=calloc(a2,sizeof(T0*));
  78. r24copy_from(R,C,(a1)-(1));
  79. return R;
  80. }
  81. void r533copy_from(T533 C,T533 a1,int a2){
  82. int _i=0;
  83. _i=a2;
  84. while (!((_i)<(0))) {
  85. (C)[_i]=((a1)[_i]);
  86. _i=(_i)-(1);
  87. }
  88. }
  89. T533 r533realloc(T533 C,int a1,int a2){
  90. T533 R=NULL;
  91. R=calloc(a2,sizeof(T0*));
  92. r533copy_from(R,C,(a1)-(1));
  93. return R;
  94. }
  95. void r778set_all_with(T778 C,T0* a1,int a2){
  96. int _i=0;
  97. _i=a2;
  98. while (!((_i)<(0))) {
  99. (C)[_i]=(a1);
  100. _i=(_i)-(1);
  101. }
  102. }
  103. int r778fast_index_of(T778 C,T0* a1,int a2){
  104. int R=0;
  105. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  106. R=(R)+(1);
  107. }
  108. return R;
  109. }
  110. void r778copy_from(T778 C,T778 a1,int a2){
  111. int _i=0;
  112. _i=a2;
  113. while (!((_i)<(0))) {
  114. (C)[_i]=((a1)[_i]);
  115. _i=(_i)-(1);
  116. }
  117. }
  118. T778 r778realloc(T778 C,int a1,int a2){
  119. T778 R=NULL;
  120. R=calloc(a2,sizeof(T0*));
  121. r778copy_from(R,C,(a1)-(1));
  122. return R;
  123. }
  124. void r51set_all_with(T51 C,T0* a1,int a2){
  125. int _i=0;
  126. _i=a2;
  127. while (!((_i)<(0))) {
  128. (C)[_i]=(a1);
  129. _i=(_i)-(1);
  130. }
  131. }
  132. int r51fast_index_of(T51 C,T0* a1,int a2){
  133. int R=0;
  134. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  135. R=(R)+(1);
  136. }
  137. return R;
  138. }
  139. void r51copy_from(T51 C,T51 a1,int a2){
  140. int _i=0;
  141. _i=a2;
  142. while (!((_i)<(0))) {
  143. (C)[_i]=((a1)[_i]);
  144. _i=(_i)-(1);
  145. }
  146. }
  147. T51 r51realloc(T51 C,int a1,int a2){
  148. T51 R=NULL;
  149. R=calloc(a2,sizeof(T0*));
  150. r51copy_from(R,C,(a1)-(1));
  151. return R;
  152. }
  153. int r9hashcode(T9 C,int a1){
  154. int R=0;
  155. int _i3=0;
  156. int _i2=0;
  157. int _i1=0;
  158. _i2=a1;
  159. _i3=(a1)/(2);
  160. /*IF*/if ((_i3)>(6)) {
  161. _i3=6;
  162. }
  163. /*FI*/while (!((_i3)==(0))) {
  164. R=(R)+(((unsigned char)(C)[_i1]));
  165. R=(R)+((((unsigned char)(C)[_i2]))*(_i2));
  166. _i1=(_i1)+(1);
  167. _i2=(_i2)-(1);
  168. _i3=(_i3)-(1);
  169. }
  170. /*IF*/if ((R)<(0)) {
  171. R=-(R);
  172. }
  173. /*FI*/return R;
  174. }
  175. int r9fast_memcmp(T9 C,T9 a1,int a2){
  176. int R=0;
  177. int _i=0;
  178. R=((C)[0])==((a1)[0]);
  179. _i=(a2)-(1);
  180. while (!(((_i)==(0))||(!(R)))) {
  181. R=((C)[_i])==((a1)[_i]);
  182. _i=(_i)-(1);
  183. }
  184. return R;
  185. }
  186. int r9fast_index_of(T9 C,char a1,int a2){
  187. int R=0;
  188. while (!(((R)>(a2))||((a1)==((C)[R])))) {
  189. R=(R)+(1);
  190. }
  191. return R;
  192. }
  193. void r9copy_from(T9 C,T9 a1,int a2){
  194. int _i=0;
  195. _i=a2;
  196. while (!((_i)<(0))) {
  197. (C)[_i]=((a1)[_i]);
  198. _i=(_i)-(1);
  199. }
  200. }
  201. T9 r9realloc(T9 C,int a1,int a2){
  202. T9 R=NULL;
  203. R=calloc(a2,sizeof(char));
  204. r9copy_from(R,C,(a1)-(1));
  205. return R;
  206. }
  207. void r36copy_from(T36 C,T36 a1,int a2){
  208. int _i=0;
  209. _i=a2;
  210. while (!((_i)<(0))) {
  211. (C)[_i]=((a1)[_i]);
  212. _i=(_i)-(1);
  213. }
  214. }
  215. T36 r36realloc(T36 C,int a1,int a2){
  216. T36 R=NULL;
  217. R=calloc(a2,sizeof(T0*));
  218. r36copy_from(R,C,(a1)-(1));
  219. return R;
  220. }
  221. void r579set_all_with(T579 C,T0* a1,int a2){
  222. int _i=0;
  223. _i=a2;
  224. while (!((_i)<(0))) {
  225. (C)[_i]=(a1);
  226. _i=(_i)-(1);
  227. }
  228. }
  229. void r579copy_from(T579 C,T579 a1,int a2){
  230. int _i=0;
  231. _i=a2;
  232. while (!((_i)<(0))) {
  233. (C)[_i]=((a1)[_i]);
  234. _i=(_i)-(1);
  235. }
  236. }
  237. T579 r579realloc(T579 C,int a1,int a2){
  238. T579 R=NULL;
  239. R=calloc(a2,sizeof(T0*));
  240. r579copy_from(R,C,(a1)-(1));
  241. return R;
  242. }
  243.  
  244.